﻿Imports CapaLogica.CL.PeriodoLectivo


Public Class frmAbrirPeriodoLectivo

    Private Sub btnAbrirPeriodo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbrirPeriodo.Click
        Try
            GestorPeriodoLectivo.validarQuePeriodoLectivoEstaCerrado("abrir")
            If validar() Then
                Dim button As DialogResult = MessageBox.Show("¿Desea abrir un nuevo Periodo Lectivo?",
                                                                                Me.Text, MessageBoxButtons.YesNoCancel, MessageBoxIcon.Information)
                If button = DialogResult.Yes Then
                    GestorPeriodoLectivo.abrirPeriodoLectivo(dtpInicio.Value, dtpFin.Value)
                    MsgBox("¡El periodo lectivo ha sido abierto!", MsgBoxStyle.Information, "Periodo Lectivo")
                Else
                    MsgBox("¡El Periodo Lectivo no ha sido abierto!", MsgBoxStyle.Information, "Mensaje")

                End If
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error")
        End Try

    End Sub


    Private Function validar() As Boolean
        If dtpInicio.Value > dtpFin.Value Then
            MsgBox("La fecha de inicio no puede ser mayor a la fecha de fin.", MsgBoxStyle.Exclamation, "Error")
            Return False
        ElseIf dtpInicio.Value < DateString Then
            MsgBox("La fecha de inicio no puede ser menor a la fecha actual.", MsgBoxStyle.Exclamation, "Error")
            Return False
        End If

        Return True
    End Function



    Private Sub tsbCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Close()
    End Sub



    
    Private Sub btnCerrerar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCerrerar.Click
        Try
            GestorPeriodoLectivo.validarQuePeriodoLectivoEstaAbierto("cerrar periodo")
            Dim button As DialogResult = MessageBox.Show("Al cerrar el Periodo Lectivo se cerrarán todos su grupos y foros respectivos. " +
                                                                       "¿Está seguro que desea cerrar el Periodo Lectivo?",
                                                                       Me.Text, MessageBoxButtons.YesNoCancel, MessageBoxIcon.Warning)
            If button = DialogResult.Yes Then
                GestorPeriodoLectivo.cerrarPeriodoLectivo()
                MsgBox("¡El periodo lectivo ha sido cerrado!", MsgBoxStyle.Information, "Periodo Lectivo Cerrado")
            Else
                MsgBox("¡El Periodo Lectivo no ha sido cerrado!", MsgBoxStyle.Information, "Periodo Lectivo")
            End If

        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error")
        End Try


    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        Me.Dispose()
    End Sub
End Class